Introduction

Cost Benefit Analysis of developing Urban Forest in Phoenix, AZ.


Location: Phoenix, AZ – State Capital of Arizoan and Fifth most populous ciy in the United States.
Objectives: Increase the Urban forest to offset the Carbon-Di-Oxide (CO2) generated by air travel by providing Cost-Beneefit analysis of five most comman urban tree species in the area.
Data Used: Cost and Benefit of each of those species for a span 30 years.
Process: Investigate the number of trees needed to offest the CO2 generated by a flight. Then navigate through details of cost and benefit provided by these trees while presenting the user with Net Present Value of the tree investement.

Select Carbon Generation to offset

Estimate the carbon generation and trees needed to offset it

Outputs

Number of trees needed to offset the carbon


Analysis

Details of cost and benefit of Properly installing a tree


Details of cost and benefit of conveniently installing a tree


Net present Value of Cost Benefit analysis

---
title: "Cost-Benefit Analysis of Urban Forest"
output: 
  flexdashboard::flex_dashboard:
    storyboard: false
    social: menu
    source: embed
---

```{r, message=FALSE, warning=FALSE, include=FALSE, echo=FALSE}
# install packags and library
# install.packages("leaflet")
#install.packages("flexdashboard")
#install.packages("shiny")
#install.packages("here")
#install.packages("dplyr")

library(shiny)
library(flexdashboard)
library(leaflet)
library(here)
library(dplyr)
```


```{r, message=FALSE, warning=FALSE, include=FALSE, echo=FALSE}
# load data 
dat <- read.csv(here("data/trees-cost-benefit.csv"))

```



Introduction {.storyboard}
=========================================
### Cost Benefit Analysis of developing Urban Forest in Phoenix, AZ. 
```{r}
leaflet() %>%
  addTiles(options = providerTileOptions(minZoom = 8, maxZoom = 10)) %>%
  addMarkers(lng=-112.0740, lat=33.4484, popup="City Center Phoenix, AZ")
```

***

**Location**: Phoenix, AZ -- State Capital of Arizoan and Fifth most populous ciy in the United States.    
**Objectives**: Increase the Urban forest to offset the Carbon-Di-Oxide (CO2) generated by air travel by providing Cost-Beneefit analysis of five most comman urban tree species in the area.    
**Data Used**: Cost and Benefit of each of those species for a span 30 years.    
**Process**: Investigate the number of trees needed to offest the CO2 generated by a flight. Then navigate through details of cost and benefit provided by these trees while presenting the user with Net Present Value of the tree investement. 

Select Carbon Generation to offset {data-orientation=rows}
=========================================


### Estimate the carbon generation and trees needed to offset it

Sidebar {.sidebar}
-------------------------------------
```{r}
## insert widget for user input

radioButtons("radio.flight", label = h4("Select an appropriate round trip flight"),
    choices = list("Cross Counrty Flight (Approximately Six Hours Flight)" = "3700",
                "Same Sector Flight (Approximately Three Hours Flight)" = "1210",
                "Same Sector shorter Flight (Approximately Two hours Flight)" = "950"), 
    selected = c("3700")
             )


#fluidPage(
 # radioButtons("radio.flight", label = h3("Select an appropriate round trip flight"),
  #  choices = list("Cross Counrty Flight (Approximately Six Hours Flight)" = 1, 
    #               "Same Sector Flight (Approximately Three Hours Flight) " = 2, 
     #              "Same Sector shorter Flight (Approximately Two hours Flight)" = 3), 
   # selected = 1)
#,
   # hr(),
 # fluidRow(column(3, verbatimTextOutput("value")))
#)

## insert widget for tree selection by the user from the list provided
fluidPage(
  radioButtons("radio.tree", label = h3("Select the type of tree to offset carbon generated"),
    choices = list("Mesquite" = "mesquite", 
                   "Blue Palo Verde " = "blue palo verde", 
                   "Aleppo Pine" = "aleppo pine",
                   "Chinese Elm" = "chinese elm", 
                   "Plao Brea" = "palo brea"), 
    selected = c("mesquite")),
  
 # hr(),
 # fluidRow(column(3, verbatimTextOutput("value")))
)

```

Outputs
-------------------------------------

### Number of trees needed to offset the carbon

```{r}
# tree.var<- dat %>% 
 # filter (species %in% input$radio.tree)

```




*** 
Analysis {.storyboard}
=========================================


### Details of cost and benefit of Properly installing a tree

```{r}

```

*** 

### Details of cost and benefit of conveniently installing a tree

```{r}

```

***

### Net present Value of Cost Benefit analysis 

```{r}

```